home *** CD-ROM | disk | FTP | other *** search
/ Internet 1996 World Exposition / park.org.s3.amazonaws.com.7z / park.org.s3.amazonaws.com / Japan / CSK / hyakki / zatuwa / movie / eawase.dcr / 00008_starting movie.ls < prev    next >
Encoding:
Text File  |  2017-09-21  |  442 b   |  18 lines
  1. on startMovie
  2.   global placelist, pictlist, clicklist, gtimes, gtime
  3.   set gtimes to 0
  4.   set gtime to 180
  5.   put gtime into field "time"
  6.   put 0 into field "points"
  7.   set placelist to []
  8.   set pictlist to []
  9.   set clicklist to []
  10.   set pictno to 30
  11.   set clickno to 1
  12.   repeat with counter = 1 to 15
  13.     append(pictlist, pictno + counter)
  14.     append(clicklist, clickno + counter)
  15.     append(clicklist, clickno + 15 + counter)
  16.   end repeat
  17. end
  18.